home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / tex / macros / distribs / nfss / oldlfont.sty < prev    next >
Text File  |  1992-11-29  |  5KB  |  147 lines
  1. %% 
  2. %% This is file `oldlfont.sty', generated 
  3. %% on <1992/9/24> with the docstrip utility (2.0r).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% oldlfont.doc 
  8. %% 
  9. %% Copyright (C) 1989-1992 by Frank Mittelbach, Rainer Schoepf. 
  10. %% All rights reserved. 
  11. %% 
  12. %% This file is part of the NFSS (New Font Selection Scheme) package. 
  13. %% 
  14. %% IMPORTANT NOTICE: 
  15. %% 
  16. %% You are not allowed to change this file. You may however copy 
  17. %% this file to a file with a different name and then change the copy 
  18. %% if you obey the restrictions on file changes described in 
  19. %% readme.mz. 
  20. %% 
  21. %% You are allowed to distribute this file under the condition that 
  22. %% it is distributed together with all files mentioned in readme.mz3. 
  23. %% If you receive only some of these files from someone, complain! 
  24. %% 
  25. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  26. %% ALLOWED to take money for the distribution or use of either this 
  27. %% file or a changed version, except for a nominal charge for copying 
  28. %% etc. 
  29. %% 
  30. %% For error reports in case of UNCHANGED versions see readme files. 
  31. %% 
  32. %% Please do not request updates from us directly. Distribution is 
  33. %% done through Mail-Servers and TeX organizations. 
  34. %% 
  35. \def\fileversion{v1.3f}
  36. \def\filedate{92/09/07}
  37. \def\docdate {92/09/07}
  38.  
  39. %% \CheckSum{230}
  40. %% \CharacterTable
  41. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  42. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  43. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  44. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  45. %%   Dollar        \$     Percent       \%     Ampersand     \&
  46. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  47. %%   Asterisk      \*     Plus          \+     Comma         \,
  48. %%   Minus         \-     Point         \.     Solidus       \/
  49. %%   Colon         \:     Semicolon     \;     Less than     \<
  50. %%   Equals        \=     Greater than  \>     Question mark \?
  51. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  52. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  53. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  54. %%   Right brace   \}     Tilde         \~}
  55. %% Copyright (C) 1989-1992 Frank Mittelbach and Rainer Sch\"opf,
  56. %% all rights reserved.
  57.  
  58. \expandafter\ifx\csname ds@oldlfont\endcsname\relax
  59.    \let\ds@oldlfont\@empty
  60.   \else \endinput \fi
  61. \immediate
  62.  \write\sixt@@n{Style-Option: `oldlfont'
  63.  \fileversion\space <\filedate>  (FMi and RmS)}
  64. \immediate
  65.  \write\sixt@@n{English Documentation
  66.  \@spaces\@spaces\space <\docdate>  (FMi and RmS)}
  67. \ifx\@warning\undefined\else
  68. \@ifundefined{selectfont}
  69.      {\@warning{`oldlfont' style option makes not much sense
  70.                  without the new font selection scheme}%
  71.       \endinput}{}
  72. \fi
  73. \def\newfont#1#2{\@ifdefinable#1{\global
  74.                         \font#1=#2\relax}}
  75. \def\symbol#1{\char #1\relax}
  76. \def\@gobbletwo#1#2{}
  77. \let\load\@gobbletwo
  78. \new@mathgroup\bffam
  79. \new@mathgroup\sffam
  80. \new@mathgroup\ttfam
  81. \new@mathgroup\itfam
  82. \new@mathgroup\scfam
  83. \new@mathgroup\slfam
  84. \new@internalmathalphabet\mathbf\bffam{cmr}{bx}{n}
  85. \new@internalmathalphabet\mathsf\sffam{cmss}{m}{n}
  86. \new@internalmathalphabet\mathtt\ttfam{cmtt}{m}{n}
  87. \new@internalmathalphabet\mathit\itfam{cmr}{m}{it}
  88. \new@internalmathalphabet\mathsc\scfam{cmr}{m}{sc}
  89. \new@internalmathalphabet\mathsl\slfam{cmr}{m}{sl}
  90. \def\prm{\fontfamily\rmdefault
  91.     \fontseries\default@series
  92.     \fontshape\default@shape\selectfont
  93.     \mathrm}
  94. \def\psf{\fontfamily\sfdefault
  95.     \fontseries\default@series
  96.     \fontshape\default@shape\selectfont\mathsf}
  97. \def\psl{\fontfamily\rmdefault
  98.     \fontseries\default@series
  99.     \fontshape\sldefault\selectfont\mathsl}
  100. \def\pbf{\fontfamily\rmdefault
  101.     \fontseries\bfdefault
  102.     \fontshape\default@shape\selectfont\mathbf}
  103. \def\psc{\fontfamily\rmdefault
  104.     \fontseries\default@series
  105.     \fontshape\scdefault\selectfont\mathsc}
  106. \def\pit{\fontfamily\rmdefault
  107.     \fontseries\default@series
  108.     \fontshape\itdefault\selectfont\mathit}
  109. \def\ptt{\fontfamily\ttdefault
  110.     \fontseries\default@series
  111.     \fontshape\default@shape\selectfont\mathtt}
  112. \def\em{\protect\pem}
  113. \def\pem{\@nomath\em \ifdim \fontdimen\@ne\font >\z@
  114.                        \rm \else \it \fi}
  115. \def\@setsize#1#2#3#4{\@nomath#1%
  116.     \ifx\protect\relax
  117.       \let\@currsize#1%
  118.     \fi
  119.     \fontsize{#4}{#2}%
  120.     \reset@font}
  121.  
  122. \let\math@bgroup\@empty
  123. \let\math@egroup\@empty
  124. \ifx\lyfam\undefined
  125.  \new@mathgroup\lyfam
  126.  \define@mathgroup\mv@normal\lyfam
  127.        {lasy}{m}{n}
  128.  \define@mathgroup\mv@bold\lyfam
  129.        {lasy}{b}{n}
  130.  
  131. \edef\@tempa{\hexnumber@\lyfam}
  132. \mathchardef\mho"0\@tempa 30
  133. \mathchardef\Join"3\@tempa 31
  134. \mathchardef\Box"0\@tempa 32
  135. \mathchardef\Diamond"0\@tempa 33
  136. \mathchardef\leadsto"3\@tempa 3B
  137. \mathchardef\sqsubset"3\@tempa 3C
  138. \mathchardef\sqsupset"3\@tempa 3D
  139. \mathchardef\lhd"3\@tempa 01
  140. \mathchardef\unlhd"3\@tempa 02
  141. \mathchardef\rhd"3\@tempa 03
  142. \mathchardef\unrhd"3\@tempa 04
  143. \fi
  144. \endinput
  145. %% 
  146. %% End of file `oldlfont.sty'.
  147.